results %>%
glimpse
## Observations: 400
## Variables: 4
## $ X <int> 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17,…
## $ X0 <dbl> 0.35610703, 0.13219421, 0.07984828, 0.91039251, 0.57249880, 0…
## $ X1 <dbl> 0.10662935, 0.31628278, 0.70515117, 0.36002146, 0.49423963, 0…
## $ X2 <dbl> 1.0000000000, 0.0011362904, 0.0814757967, 1.0000000000, 0.000…
results %>%
ggplot(aes(X0, X1, color = X2)) +
geom_point()

results_simple_first %>%
ggplot(aes(X0, X1, color = X2)) +
geom_point()

read.csv('./../xor/results.csv') %>%
ggplot(aes(X0, X1, color = X2)) +
geom_point()

for (run in 0:9){
print(read.csv(paste('./../xor-basic-multiruns/results-run-', run, '.csv', sep='')) %>%
ggplot(aes(X0, X1, color = X2)) +
geom_point())
}










print(read.csv(paste('./../xor-retrain/results-run-', 0, '.csv', sep='')) %>%
ggplot(aes(X0, X1, color = X2)) +
geom_point())

print(read.csv(paste('./../xor-retrain/results-run-', 1, '.csv', sep='')) %>%
ggplot(aes(X0, X1, color = X2)) +
geom_point())

for (run in 0:9){
print(read.csv(paste('./../xor-retrain/results-run-', run, '.csv', sep='')) %>%
ggplot(aes(X0, X1, color = X2)) +
geom_point())
}










f <- function(x) x^3
for (run in 0:9){
print(read.csv(paste('./../polynomial_x3/results-run-', run, '.csv', sep='')) %>%
ggplot(aes(X0, X1, color = X2)) +
geom_point() +
stat_function(fun=f, colour="red"))
}










circleFun <- function(center = c(0,0),diameter = 1, npoints = 100){
r = diameter / 2
tt <- seq(0,2*pi,length.out = npoints)
xx <- center[1] + r * cos(tt)
yy <- center[2] + r * sin(tt)
return(data.frame(x = xx, y = yy))
}
circleDat <- circleFun(diameter=0.8*2)
for (run in 0:9){
df <- read.csv(paste('./../circle/results-run-', run, '.csv', sep=''))
print(
ggplot(aes(X0, X1, color = X2), data=df) +
geom_point() +
geom_path(aes(x, y, color=0), data=circleDat) )
}










for (run in 0:2){
print(read.csv(paste('./../xor-400pts/results-run-', run, '.csv', sep='')) %>%
ggplot(aes(X0, X1, color = X2)) +
geom_point() )
}


